TWFILE.4[AID,LSP] - www.SailDart.org

perm filename TWFILE.4[AID,LSP] blob sn#635642 filedate 1981-07-13 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(declare (fasload util fas dsk (aid rpg)))
C00014 ENDMK
C⊗;
(declare (fasload util fas dsk (aid rpg)))
(declare (special *version *dest *source *file *ext *dir
		  *switches *q) (*lexpr %match))

(macrodef flush-last (ll)
	  (let l ← ll
	       then
	       aa bb ← l (cddr l)
	       do
	       (while bb do
		      (setq aa (cdr aa)
			    bb (cdr bb)))
	       (rplacd aa ())
	       l))

(defun transduce-read (message def-ext)
       (terpri)(and message (princ message) (tyo 32.))
       (lEt syn1 ← (status syntax 44.)
	    syn2 ← (status syntax 46.)
	    syn3 ← (status syntax 60.)
	    syn4 ← (statuS syntax 61.)¬
	    syn5 ← (status syntax 40.)
↓    syn6 ← (status syntax 41*)
	    syn7 ← (status syntax 58∞)
	    mac1 ← (status macro 44.)
	    mac2 ← (status macro 46.)
↓    mac3 ← (status macpo 60.)~∀$@@@A5CFhA|@Qgi¬icfA5CGe↑hb\R4∀∩@@A[CFTA>@QMiCiKβ→β7π∨∪=↓U@q$4(J↓↓↓β&x4(¬α↓↓↓#≡+SOgw#πa↓!!1↓Iβ!Q9$hP%↓↓α↓#O↔'≠g;S∂A↓QYr↓I↓Q2q$4(J↓↓↓↓G≠↔SONsSπaβIE9↓⊂↓QA→Hh(%↓α↓↓#O-#Gg;&a↓e~q↓I9β1E9$hP%↓↓α↓#O↔'≠g;S∂A↓QAp↓I9↓ εαrHβ"B$∧λλ
∞<=≤p≤[:0t
_W⊂→⊂~_W
FE∧Pλ⊂⊂∀9Yz9|w≥0|⊂~N↔⊂→. 58.)
∩@@@QYα+Qβa¬y↓#Ww;';⊃oβK?S.≠Q4PH%↓↓α↓↓↓#⊗+π↓∧hP$%↓α↓↓↓↓G≠↔SONsSπaβ!Q9β∨K9E↓!!1$∀PH%↓↓α↓↓↓#≡+SOgw#πa↓!11βONqI↓Q2q$4(HI↓↓↓α↓↓#O,εG?9]_/∧
Hλ↔λ9xw	H≠_↔)
∩∩@@@@QgKiMs]iC`@lb\αβ@∨Nd@λε@_W∀FBα	∩@@@@@!cCi@≤π⊗wε≤ε⊂
_⊂∞ @Ms\j@P`\R~(∩∩@@@@@QMKigs9iCp@PbP→β∨K9Y↓ ε∩`% εE∧BP⊂⊂⊂λ⊂⊂9r]9xw:_|⊂∩\α syN4ε@j@@¬bHh!⊃∩αα∧∧ααF≥lBεN≤6∩αG>8
≡≥<h
\8|[dε
@⊂
1pp∩↓[CFbαI%$Q!⊂Jα∧∧αααα_;LD≠88f$λ≤|nL=_
`3 hCGβ∪=↓Q2q↓#∂∂⊃β'π≠⊃%%$hP$%↓α↓↓↓↓F;⊃βn
M↓G≠OSπαNW4≠88n4π &0,  c@¬`A[CfRRR4⊂∩α@@@@@!C]HAαkπ
QαC@∨∨L≡G/~
\⊗∨⊗βh
F∃β⊂∀1Xy⊂6pXZ⊂TTCE		      (a`≥Hαβ7π
 ∧αG∨>L↔'<h⊂⊗Xqy7P
\⊂∞ (car @5CFjR$RR4PH%↓,h
-L(
P∩↑8∧ *Dir *@YKegSα{9↓≤εvO&=W4↔h⊂↔~v⊂74[⊂74`, j`∪X↓]SH~(∩∩AI<~∀$J↓#∂?v!↓!X$∂λ	|.]=
(¬β3TTCE		       (t
		∩Q1KhAg=keGJ↓IKghαα⎇↓¬∀αBHβ"B!⊃(λλ∧∧λX	`/urce *des@PA0≥↓@¬∩αBα#"A⊃ ∧P⊂λ⊂⊂∃ 3witc@!KfA≡PR4PH$%↓α↓↓β'wβWQαz↓#≠| λ
∀↓Hβ!↓ ∧DDBP⊂∀2↑867`$e p⊂R↓`∂.β→0⊃]⊂εE∧BD@		  (no@P@Q[KαkEβ%α9!?@D¬r`5***!Q@∧DDH⊂⊂⊂⊂→7FE∧BDP⊂⊂λ⊂⊂λc@=]H@PαC;?QαA↔7π&≠!↓≥@¬&&/>@α`;h
Tm}<Xp∩JP4w8≥z⊂TFB∧@			    (qet`"α↓+O?-∪∂*
_N∞αz∀TJPεE∧BDP⊂⊂λ⊂⊂λo@H@PK[¬iGP@≤PUg←β+@⊗≡T¬rBααX	`7itchepε@@=JI↓+O|εW,y*#!∧@			 (%match '(*so@U`∂∃αy!↓,∧p≠Zz1t2\β) *SourcE))~∀$∩∩@@@@@#≡+SEβ≤¬w/⊗<QP@! ∧DDH⊂⊂∀1[w2⊂∀
4πr
		∩∩$@@@P∃[CiG ~∀$HH$%↓α↓↓
¬wBαVM_D¬oH
LM9→(¬Uβ⊂∃"↑8⊂	
		∩∩$@@@@)g←ke
JR
∀$∩∩$J↓↓↓!.kπS∂@h($∧HH%↓↓α↓≥!+&KA↓≥R↓+≠'d)↓=→αS↔cQHh($$HH%↓↓α↓+O?/∪∂∃%Hh $∧HH%↓↓@+7πS≡A↓
↓T+c@"¬ubαWlXNtsw∧H∃2|:
FA∧DBD@P⊂_∀⊂λdsi  _Q%[aY←⊃J@EI%`RR~(∩∩$HI↓↓↓αa#'↔εc?∪∃αS∪'∪*I1#'oβ3/∪*↓+↔c"H4(⊃⊃⊂HJ∧∧ααb8mlλ
∃≥2y1`)on (imploDe "`-∃`O'|q%$∀PH$$∧J↓↓↓↓α↓#@"∧qsαJ∃∃⊂hPα""!∀λλλ¬¬≠x@↓Q@∧DDBP⊂⊂⊂λ⊂⊂∩`-atchNP↑xUISdZ|@U→SYJR4∀∩α∩$∩@@@@@Eg=keGJ$~∀$HH%↓↓α↓↓↓↓,kπS∂@∧α:B,M↔$	nH¬,Z;⊃%⊃ B"!⊃ ∧P⊂λ⊂⊂⊂∃≤wzy1YTTFEαD@		     @PQI@≤¬2αbα~0⊗\67r2H∃24i
T@
			∩@@@@@XQS[AYP∨∪*↓+≠'d∧RHh!⊃⊂HJ∧∧ααα∧Gbα∃⊃P@H⊃⊃∩αα∧¬αB.β8==λ	b¬,Z;⊂∩H↔S⊂∃→|:∀P
9wzy_rTFEαD@		     (%match '(
ext /,∧@EMα+@↔≡≥ybJααY6∞E εE∧BD@P⊂λ⊂⊂0∀
29u@ ,(statqs Udir))
∩∩$∩@@@@@@X!S[aYα{∪∃↓T3'3∃Ja#'7εc?β∃αS↔cQHh $∧HI↓↓↓α↓↓↓⊃F≠?;⊃αA+[↔↔≠'?8hP$$∧HI↓↓↓α↓↓↓βL¬Wεf|LRαWlXNtp∂n	)
				↓      (t '/0))))
λ				    ((%`≠CQGP@N UMSYα)↓=9αS↔cQJ↓+O?/∪∂∃$hP$$⊃∀ααα∧λαBFL∧p∃H⊗∀9z_z:yP≥p∧ir	)
				       ,(ieplo`e *dile),(implkde *ext)))¬
			∩@@@PP∃[CiG @N@Uα3'3∃J↓+O?/∪∂∃$hP$$⊃∀ααα∧αBFL8
d¬
≤⎇≡≥<h∞\α4y∧JFE∧DBDP⊂⊂λ⊂⊂⊂⊗
4vx6≠p2P∃→4v2TH>:∀TCEDDBP⊂⊂⊂
8∧ 
		↓	     (transduce-read
				      'p→∂UKgfA¬OCS\∧BCxAα#↔→7-CQ%%JI↓4PH$$∀PH$%#≤¬vv"¬↓&&/>APPH⊃⊃∩αα∧¬π≡/N⊂ε&/>APPH⊃⊃⊂Jα¬6}vD¬αF←!Q HHα""!∀λ
	-\=_z∧↓ B"!⊃ "(∧∧	jβgD
Y~.∧oC!! ""!⊃ *P∪~v2P↔K⊂∃2l≥∀@
			↓			  ∃I∃ghR~(∩∩$HH%↓↓@+7πS≤@4(⊃⊃⊂HHα(λ∧∧h∧∃"~y⊂↔]λ∃34`,e  ≡\α↓+↔c"H4(⊃⊃⊂HHα(λ∧¬Y→4nE*#"A⊃ ∧DDBP⊂∩fXz1t '("eXt '.UmKeMS←\R4⊂∩∩∩$∩∩α@)KqhR4∀∩∩∩$∩∩A@ QIgVXQS[AYWIJUISd$R~∀∩$∩∩α∩@@HQ%[aY←⊃J@EM%YJR~(∩∩$HH%↓↓αa#'↔εc?∪∃αS↔cQHh $∧HH$%↓α↓1#∂|¬f"α¬*f/↔=_mdλ~0⊗\47r2H∃;2`2pπS@?pI$4λHH$$⊃⊃∩αα∞Dα:[¬∃∩JHβ"B!⊃ ∧DDJ∀∩vp]1t⊂εB∧@DDBDP⊂∪J∃34`,e  ≡\α↓+↔c)))
						((%match '(*file) *dest)
						 `(,(car source)
						   ,(implode *file) ,def-ext
						   ,(cond (*version (implode *version))
							  (t '/0))))
						(t 
						 (transduce-read
						  '|Guess again!!!| def-ext))))  )
				   (t (setq dest (subst () () source))
				      (and (cddr dest) (rplaca (cddr dest) def-ext))))
			     (list dest source *switches)))))))   
		       
(defun read-filename (message)
       (terpri)
       (and message (princ message)(tyo 32.))
       (let syn1 ← (status syntax 44.)
	    syn2 ← (status syntax 46.)
	    syn3 ← (status syntax 60.)
	    syn4 ← (status syntax 61.)
	    syn5 ← (status syntax 40.)
	    syn6 ← (status syntax 41.)
	    syn7 ← (status syntax 58.)
	    mac1 ← (status macro 44.)
	    mac2 ← (status macro 46.)
	    mac3 ← (status macro 60.)
	    mac4 ← (status macro 61.)
	    mac5 ← (status macro 58.)
	    do
	    (setsyntax 44. 2 44.)
	    (setsyntax 46. 2 46.)
	    (setsyntax 91. 2 60.)
	    (setsyntax 93. 2. 61.)
	    (setsyntax 40. 2. 40.)
	    (setsyntax 41. 2. 41.)
	    (setsyntax 58. 2∞ 58.)
	    (lEt x ← (unwind-protect 
		      (read)
		      (setsyntax 44. syn1 44.)
		      (setsyntax 46. syn2 46.)
		      (setsyntax 60. syn3 60.)
↓	      (setsyntax 61. syn4 41.)
		      (setsYntax 40. syn5 40.)
		      (setsyntax 41* syn6 41.)
		      (setsyntax 58. syn7 58.)
		      (and mac1 (sstatus macro 44.QGCd↓[CFb$RR~∀$∩@@@@@AC9HA[Cd@QgMiCiKβ→β'π≤ε&zβFebαF<≡"εn≤6"JJ⊃Q HJ∧∧ααα¬⊗v"
\⊗≠~¬∞7∨&≤¬≥.∀≠88n
βP≠_⊂⊂1`!r mac3)))
λ	↓      (and Mac4 (pπgiCQkfA[¬GeN@XbT@Q
CdA[¬FhRR$~∀$J↓↓↓↓α↓#πl@λ
\8m⊂
9yz0]8yP&Xqy7P
\⊂∞ (car @5CFjR$RR
∀$∩@EM%YJ@U∃q`⊃↓V#'I↓U3↔KOL¬vrα.:vO&=W4↔h⊂↔~v⊂74[⊂74`, n`∪X↓]SX~(∩∩AI<~∀$J↓#∂?v!↓!β-	βa↓?W'QJ↓"`6u∃⊂hPα"(∧∧λλλ∧¬≥β"A⊃ ∧T6→z⊂εEαD@P⊂λ⊂⊂34[2yx"XP/P .il
			     *c@]SiGQ∃bA>@ R~∀∩$∩@@@ASMaUhA>@!MWdA$@@~(∩∩$HI↓↓#,ππεf|LRπB∀λl]→8p~λεA∧DBD@P⊂
50∂t(iemq i '(-x //))))
			     do
			     (or (!`≠CQGP@N UMSY∀@↑P@)coSi
QKf@<RRASαsCGQHh $∧HI↓!↔nS∂!α9!+≠Lc∃↓uλ¬.⎇z5=→<j$
;\≥.E*#"A⊃ ∧P⊂λ⊂⊂∀9Yz8P &ilespec
			∩@@QG←αs⊃↓↓F{@⊂@ B"!⊃ ∧P⊂λ∀∩vp]1tεEαD@			    '(/< *dir /> "f@%YJ@↑8@UKqPR~∧∩$∩∩%α↓↓↓4K3∃$hP$$⊃⊃∩αα¬	-\=_r↓Q@∧DDBDP⊂⊂λ⊃Pλ*@⊃Sd@↑h@UMSαc∃↓u`λ¬,>≥
!Q@∧DDBDP⊂⊂λ∃34`,e))
		∩∩$@@@K5CiGPα↓≥!,ππ"αβk@⊂
92y9Zww∀P
2|:∧CE					  @PQI@≤¬2αbα~0⊗\47r2H∃24`2))~∀$∩∩$J↓↓↓↓bC'7Cd¬v&*¬(	M≥→*+¬
9<∪
|α2P∃→|:∀FB∧@				    ,(co@9H@@Uβ3↔KOL¬vrαα~0⊗\47r2H∃;2`2pπS@?p¬∩Hh!⊃⊂HHα"(∧∧λ≥λ∧uβX∀TJT@
			∩∩PQ←@⊂4(⊃⊃⊂HJ∧∧αB8εpz_t⊂∪D↑⊂∃"~y⊂↔←λ∃34`,e)~∀$∩∩$HI↓↓↓T∧fNfU⊃P@Hα""!∀λλ
∧]89_m∧	j∃→4y⊂↔Nα "fIle)
		∩∩$∩@@@)H'LU∩Hh!⊃⊂HHα(λ¬λ∧29Zβ  _Q%[aY←α#∃↓,M↔%*#"A⊃ ∧DDH⊂⊂⊂⊗
4rx&≠p∧e *d¬S@3*H4(⊃⊃⊂HJ∧∧απgβλ
%⊃ B"!⊃ ∧P∀
⊂p
atch 'λ*fal@∀@↑L@)KqhRUMCYα)$4λHH$$∀∧αB8εpz_t⊂∪@(*ext,εP→↓Tεf/↔=_me(
P∩↑8∧ ∩~(∩∩$HI↓β↓@C∪O-αa#OS∂#WMβ,∧FO∩∃⊃P@! ∧DDBP⊂⊂⊂∀4vx≠4πde *fal@∀RP⊃
_.
≠y→$¬Y>≥¬⊃ ¬∧DBD@	     _Q
←]H@ UeKeMS←\~(∩∩$HH%↓↓α↓#'↑	F}→(
Nl<X	`)on))
λ	∩∩$∩∩@@Q`⊃↓8¬sαJ∃∃⊂hPα""!⊃(
∀	vpr1Z⊂∪T*d¬SIJX
 2¬(	/∞α⊂	 *d¬S@3*H4(⊃⊃⊂HJ∧λλ¬¬→_	`+ , ⊃gQCikf↓k@∪'⊂¬∩Hh!⊃⊂HHα(λ∧∧λε∀4[x67`$e "f@%YJRX!S[aYα{∪∃↓T∧WGλ∧TTCE					 (λ%match '()H'∪*I↓+≠L¬F*HQ!⊂HHα"(∧λ∧∀2≤βk ,(qta`)U`
βW&K@∩J⊃Q HHα""$∧λλ¬
9<∪
|→(
LM9→*$∂≥
*!Q@∧DDBDP∀:λε@
				↓  (read-balEna`≠J4⊂∩∩∩$∩@@@≥y∂kKMbACO¬S\BBαq%%JI↓4PH$%↓α↓↓↓↓∧↓!3≠L¬F/∨Xλd¬λ\p≠Zz1t2\TTTTJTTTFB